(make-help-screen): Pass proper format string to message.

diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index 28c040d6b58455f1b9c0abfd2608fc0e1cf40ac1..ff9c71b3ee0e1cf41430ff3b73998523ba344c44 100644 (file)
--- a/lisp/help-macro.el
+++ b/lisp/help-macro.el
@@ -91,7 +91,7 @@ and then returns."
           (let ((line-prompt
                  (substitute-command-keys (, help-line))))
             (if three-step-help
-                (message line-prompt))
+                (message "%s" line-prompt))
             (let* ((help-screen (documentation (quote (, fname))))
                    ;; We bind overriding-local-map for very small
                    ;; sections, *excluding* where we switch buffers